home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog6.arj / STRMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  781 b   |  37 lines
  1. { strmain.pas -- Main menu- and string-table module }
  2.  
  3. program StrMain;
  4.  
  5. uses WinTypes, WinProcs, WObjects, UStr1;
  6.  
  7. type
  8.  
  9.   StrMainApplication = object(TApplication)
  10.     procedure InitMainWindow; virtual;
  11.   end;
  12.  
  13.  
  14. { StrMainApplication }
  15.  
  16. {- Initialize StrMainApplication object's window }
  17. procedure StrMainApplication.InitMainWindow;
  18. begin
  19.   MainWindow := New(PStrMainWindow, Init(nil, 'StrMain'))
  20. end;
  21.  
  22. var
  23.  
  24.   StrMainApp: StrMainApplication;
  25.  
  26. begin
  27.   StrMainApp.Init('StrMainApp');
  28.   StrMainApp.Run;
  29.   StrMainApp.Done
  30. end.
  31.  
  32.  
  33. {--------------------------------------------------------------
  34.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  35.   Revision 1.00    Date: 4/16/1991
  36. ---------------------------------------------------------------}
  37.